home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 34
/
Mac Magazin and MacEasy Magazine CD - Issue 34.iso
/
Grafik & Text
/
Alpha ƒ
/
Tcl
/
ElectricAlias
/
Aliases
/
aliases.Pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-06-18
|
1KB
|
28 lines
# FILE: aliases.Pas
#
# DESC: Aliases for Pascal mode
#
# LAST UPDATE: 01/05/93 8:10:35 AM
electricAlias-def •Pas •Pas •Pas
electricAlias-var Pas bb "begin"
electricAlias-var Pas eb "end"
electricAlias-var Pas bc "\{"
electricAlias-var Pas ec "\}"
electricAlias-def •Pas function "§«askalias {function name} NAME»function §{NAME}(•):•;\r•begin\r\t•\rend§{bc}function §{NAME}§{ec}\r\r•"
electricAlias-def •Pas procedure "§«askalias {procedure name} NAME»procedure §{NAME}(•);\r•begin\r\t•\rend§{bc}procedure §{NAME}§{ec}\r\r•"
electricAlias-def •Pas label "label •;•"
electricAlias-def •Pas const "const •;•"
electricAlias-def •Pas type "type •;•"
electricAlias-def •Pas var "var •;•"
electricAlias-def •Pas record "record\r\t•\rend;•"
electricAlias-def •Pas begin "begin\r\t•\rend•"
electricAlias-def •Pas for "for • := • to • do §{bb}\r\t•\r§{eb} §{bc}for§{ec}•"
electricAlias-def •Pas while "while (•) do §{bb}\r\t•\r§{eb} §{bc}while§{ec}•"
electricAlias-def •Pas repeat "repeat\r\t•\runtil (•);•"
electricAlias-def •Pas if "if (•) then §{bb}\r\t•\r§{eb} §{bc}if§{ec}•"
electricAlias-def •Pas elseif "\b§{eb} else if (•) §{bb}\r•"
electricAlias-def •Pas else "\b§{eb} else §{bb}\r•"
electricAlias-def •Pas case "case (•)\r\t• : begin\r\t\t•\r\tend\r\rend §{bc}case§{bc}•"